object fRecete: TfRecete
  Tag = 118
  Left = 204
  Top = 147
  HelpType = htKeyword
  HelpKeyword = ','
  Anchors = [akTop, akRight]
  BorderStyle = bsSingle
  Caption = 'Recete Giri'#351'i'
  ClientHeight = 500
  ClientWidth = 924
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 924
    Height = 130
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 13
      Width = 50
      Height = 14
      Caption = 'Recete No'
      Color = clMenu
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 8
      Top = 34
      Width = 62
      Height = 14
      Caption = 'Recete Kodu'
      Color = clMenu
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label7: TLabel
      Left = 8
      Top = 102
      Width = 48
      Height = 16
      AutoSize = False
      Caption = 'A'#231#305'klama'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object Label3: TLabel
      Left = 8
      Top = 79
      Width = 49
      Height = 16
      AutoSize = False
      Caption = #214'zel Kod'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 8
      Top = 57
      Width = 52
      Height = 14
      Caption = 'Recete Ad'#305
      Color = clMenu
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label69: TLabel
      Left = 360
      Top = 10
      Width = 84
      Height = 18
      AutoSize = False
      Caption = 'Hammadde Depo'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object Label70: TLabel
      Left = 360
      Top = 33
      Width = 70
      Height = 16
      AutoSize = False
      Caption = 'Mamul Depo'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object wwDBEdit1: TwwDBEdit
      Left = 75
      Top = 8
      Width = 121
      Height = 22
      DataField = 'id'
      DataSource = dsrecete
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
      OnKeyPress = sonraki
    end
    object wwDBEdit2: TwwDBEdit
      Left = 75
      Top = 31
      Width = 121
      Height = 22
      DataField = 'stokkodu'
      DataSource = dsrecete
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
      OnKeyPress = sonraki
    end
    object wwDBEdit3: TwwDBEdit
      Left = 75
      Top = 77
      Width = 105
      Height = 22
      DataField = 'ozelkod'
      DataSource = dsrecete
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
      OnKeyPress = sonraki
    end
    object wwDBEdit5: TwwDBEdit
      Left = 75
      Top = 54
      Width = 241
      Height = 22
      DataField = 'cinsi'
      DataSource = dsrecete
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
      OnKeyPress = sonraki
    end
    object wwDBEdit4: TwwDBEdit
      Left = 75
      Top = 100
      Width = 511
      Height = 22
      AutoSize = False
      DataField = 'aciklama'
      DataSource = dsrecete
      TabOrder = 4
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = True
      OnKeyPress = sonraki
    end
    object HammaddeDepo: TwwDBLookupCombo
      Left = 449
      Top = 8
      Width = 118
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'DepoAdi'#9'20'#9'Depo Ad'#305#9'F'#9)
      DataField = 'HammaddeDepo'
      DataSource = dsrecete
      LookupTable = AmbarUretimQ
      LookupField = 'id'
      Navigator = False
      ParentFont = False
      TabOrder = 5
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      OnCloseUp = HammaddeDepoCloseUp
    end
    object MamulDepo: TwwDBLookupCombo
      Left = 449
      Top = 31
      Width = 118
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'DepoAdi'#9'20'#9'Depo Ad'#305#9'F'#9)
      DataField = 'MamulDepo'
      DataSource = dsrecete
      LookupTable = AmbarUretimQ
      LookupField = 'id'
      Navigator = False
      ParentFont = False
      TabOrder = 6
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      OnCloseUp = HammaddeDepoCloseUp
    end
    object isletimsistemsizk: TwwCheckBox
      Left = 359
      Top = 53
      Width = 104
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Alignment = taLeftJustify
      Caption = #304#351'letim Sistemsiz'
      DataField = 'isletimsistemsiz'
      DataSource = dsrecete
      TabOrder = 7
    end
    object StokBilesensiz: TwwCheckBox
      Left = 359
      Top = 71
      Width = 104
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Alignment = taLeftJustify
      Caption = 'Stok Bile'#351'ensiz'
      DataField = 'StokBilesensiz'
      DataSource = dsrecete
      TabOrder = 8
    end
    object AyniStokkodu: TListBox
      Left = 950
      Top = -4
      Width = 121
      Height = 97
      ItemHeight = 14
      TabOrder = 9
      Visible = False
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 481
    Width = 924
    Height = 19
    Panels = <>
  end
  object dbgrid1: TwwDBGrid
    Left = 0
    Top = 130
    Width = 924
    Height = 315
    DisableThemes = False
    ControlType.Strings = (
      'urunck;CustomEdit;wwDBComboBox2;F'
      'Degisim;CustomEdit;Degisimk;T'
      'Ambar;CustomEdit;lcAmbar;T'
      'UretimdeOkutma;CheckBox;True;False'
      'OtomatikOkutma;CheckBox;True;False')
    Selected.Strings = (
      'Degisim'#9'12'#9'De'#287'i'#351'im'#9'F'
      'urunck'#9'12'#9#220'r'#252'n '#199#305'k'#305#351#305#9'F'#9
      'stokkodu'#9'21'#9'Stok Kodu'#9'F'#9
      'cinsi'#9'44'#9'Cinsi '#9'F'#9
      'miktar'#9'12'#9'Miktar'#9'F'#9
      'Ambar'#9'15'#9'Depo'#9'F'
      'UretimdeOkutma'#9'5'#9'Okutulmayacak'#9'F'#9#220'retimde'
      'OtomatikOkutma'#9'5'#9'Okutulmayacak'#9'F'#9'Otomatik')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = dsrecetehar
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
    ParentFont = False
    TabOrder = 1
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 2
    TitleButtons = False
    UseTFields = False
    OnCalcCellColors = dbgrid1CalcCellColors
    OnFieldChanged = DBGrid1FieldChanged
  end
  object wwDBComboBox2: TwwDBComboBox
    Left = 20
    Top = 250
    Width = 73
    Height = 21
    ShowButton = True
    Style = csDropDownList
    MapList = True
    AllowClearKey = False
    AutoDropDown = True
    Color = clWhite
    DataField = 'urunck'
    DataSource = dsrecetehar
    DropDownCount = 8
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 0
    Items.Strings = (
      'C'#305'kt'#305#9'C'
      'Stok Bile'#351'en'#9'ZB'
      'Yar'#305' Mam'#252'l'#9'Y'
      'ZPaket'#9'Z')
    ParentFont = False
    Sorted = False
    TabOrder = 4
    UnboundDataType = wwDefault
    OnChange = wwDBComboBox2Change
  end
  object Panel2: TPanel
    Left = 0
    Top = 445
    Width = 924
    Height = 36
    Align = alBottom
    TabOrder = 2
    DesignSize = (
      924
      36)
    object bYeni: TBitBtn
      Tag = 1000
      Left = 8
      Top = 6
      Width = 60
      Height = 25
      Caption = 'Yeni'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = bYeniClick
    end
    object bSil: TBitBtn
      Tag = 1001
      Left = 72
      Top = 6
      Width = 60
      Height = 25
      Caption = 'Sil'
      Enabled = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = bSilClick
    end
    object bduzelt: TBitBtn
      Tag = 1002
      Left = 136
      Top = 6
      Width = 60
      Height = 25
      Caption = 'D'#252'zelt'
      Enabled = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = bduzeltClick
    end
    object bKaydet: TBitBtn
      Left = 200
      Top = 6
      Width = 60
      Height = 25
      Caption = 'Kay'#305't'
      Enabled = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = bKaydetClick
    end
    object bvazgec: TBitBtn
      Left = 264
      Top = 6
      Width = 60
      Height = 25
      Caption = 'Vazge'#231
      Enabled = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = bvazgecClick
    end
    object barama: TBitBtn
      Left = 328
      Top = 6
      Width = 60
      Height = 25
      Caption = 'Arama'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = baramaClick
    end
    object bkapat: TBitBtn
      Left = 834
      Top = 6
      Width = 60
      Height = 25
      Anchors = [akTop]
      Caption = 'Kapat'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = bkapatClick
    end
    object BitBtn1: TBitBtn
      Tag = 1000
      Left = 438
      Top = 6
      Width = 60
      Height = 25
      Caption = 'Kopyala'
      Enabled = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BitBtn1Click
    end
  end
  object Degisimk: TwwDBComboBox
    Left = 21
    Top = 225
    Width = 64
    Height = 22
    ShowButton = True
    Style = csDropDownList
    MapList = True
    AllowClearKey = True
    AutoDropDown = True
    DropDownCount = 8
    ItemHeight = 0
    Items.Strings = (
      'Ek Par'#231'a'#9'2')
    Sorted = False
    TabOrder = 5
    UnboundDataType = wwDefault
  end
  object lcAmbar: TwwDBLookupCombo
    Left = 508
    Top = 209
    Width = 94
    Height = 22
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'DepoAdi'#9'20'#9'Depo Ad'#305#9'F'#9)
    LookupTable = dm.AmbarQ
    LookupField = 'id'
    Navigator = False
    ParentFont = False
    TabOrder = 6
    AutoDropDown = True
    ShowButton = True
    UseTFields = False
    AllowClearKey = True
  end
  object recete: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from recete'
      'where id=:id')
    Left = 313
    Top = 192
  end
  object recetehar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = receteharBeforePost
    AfterPost = receteharAfterPost
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from recetehar'
      'where receteid=:id')
    Left = 312
    Top = 240
    object receteharurunck: TStringField
      DisplayLabel = #220'r'#252'n '#199#305'k'#305#351#305
      DisplayWidth = 12
      FieldName = 'urunck'
      Size = 2
    end
    object receteharstokkodu: TStringField
      DisplayLabel = 'Stok Kodu'
      DisplayWidth = 21
      FieldName = 'stokkodu'
      Size = 30
    end
    object receteharcinsi: TStringField
      DisplayLabel = 'Cinsi '
      DisplayWidth = 44
      FieldName = 'cinsi'
      Size = 50
    end
    object receteharmiktar: TIntegerField
      DisplayLabel = 'Miktar'
      DisplayWidth = 12
      FieldName = 'miktar'
    end
    object receteharreceteid: TIntegerField
      FieldName = 'receteid'
      Visible = False
    end
    object receteharstokkod: TIntegerField
      FieldName = 'stokkod'
      Visible = False
    end
    object receteharrefid: TAutoIncField
      FieldName = 'refid'
      ReadOnly = True
      Visible = False
    end
    object receteharAmbar: TIntegerField
      FieldName = 'Ambar'
      Visible = False
    end
    object receteharDegisim: TSmallintField
      FieldName = 'Degisim'
      Visible = False
    end
    object receteharUretimdeOkutma: TBooleanField
      FieldName = 'UretimdeOkutma'
    end
    object receteharOtomatikOkutma: TBooleanField
      FieldName = 'OtomatikOkutma'
    end
  end
  object dsrecete: TDataSource
    DataSet = recete
    Left = 280
    Top = 192
  end
  object dsrecetehar: TDataSource
    DataSet = recetehar
    Left = 280
    Top = 240
  end
  object kRecete: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from recete '
      'where id=:id')
    Left = 152
    Top = 200
  end
  object Krecetehar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Recetehar'
      'where receteid=:id'
      'and Urunck<>'#39'ZB'#39)
    Left = 183
    Top = 200
  end
  object sor: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkodu'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 40
        Value = Null
      end>
    SQL.Strings = (
      'select * from recete'
      'where stokkodu=:stokkodu')
    Left = 184
    Top = 232
  end
  object MainMenu1: TMainMenu
    Left = 224
    Top = 8
    object Dzen1: TMenuItem
      Caption = 'Kay'#305't'
      GroupIndex = 1
      object Yeni1: TMenuItem
        Tag = 1000
        Caption = 'Yeni'
        ShortCut = 115
        OnClick = bYeniClick
      end
      object Sil1: TMenuItem
        Tag = 1001
        Caption = 'Sil'
        Enabled = False
        ShortCut = 119
        OnClick = bSilClick
      end
      object Dzelt1: TMenuItem
        Tag = 1002
        Caption = 'D'#252'zelt'
        Enabled = False
        ShortCut = 118
        OnClick = bduzeltClick
      end
      object ptal1: TMenuItem
        Caption = 'Vazge'#231
        Enabled = False
        ShortCut = 117
        OnClick = bvazgecClick
      end
      object Kaydet1: TMenuItem
        Caption = 'Kaydet'
        Enabled = False
        ShortCut = 113
        OnClick = bKaydetClick
      end
      object Ara1: TMenuItem
        Caption = 'Arama'
        ShortCut = 114
        OnClick = baramaClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object opluReeteDeiim1: TMenuItem
        Tag = 1000
        Caption = 'Toplu Re'#231'ete De'#287'i'#351'im'
        OnClick = opluReeteDeiim1Click
      end
    end
  end
  object CiktiVarmi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select stokkod from recetehar where urunck='#39'C'#39' and stokkod=:stok' +
        'kod')
    Left = 312
    Top = 288
  end
  object AmbarUretimQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from depolar'
      ' Where Aktif=1 and tipi=1'
      'order by sira')
    Left = 940
    Top = 554
  end
  object aqUretimKistas: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'REC'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 25
        Value = Null
      end>
    SQL.Strings = (
      'select * from stok where  Stokkodu = :REC')
    Left = 417
    Top = 257
  end
  object adoStokBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'REC'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 25
        Value = Null
      end>
    SQL.Strings = (
      'select s1.*,isnull(s2.Stokkodu,s1.Stokkodu) AnaStokkodu'
      'from stok s1 '
      'left join Stok s2 on (s1.AnaStokkod=s2.Stokkod)'
      'where s1.Stokkodu = :REC')
    Left = 422
    Top = 314
  end
  object GrupBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      
        'select *,(select isim from stAltGrupTanim Where id=stok.AltGrupI' +
        'd) AltGrup from stok'
      'where stokkod=:stokkod')
    Left = 493
    Top = 312
  end
end
